home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 8 / HYPERLIB-1993-VOL8-CD1.ISO.7z / HYPERLIB-1993-VOL8-CD1.ISO / Wingz / Demo for 9inch Monitor / WZAP / PRSHEET.SCZ (.txt) < prev    next >
Wingz Script  |  1992-07-06  |  6KB  |  124 lines
  1. WNGZWZSC0120
  2. " & ADDRESS.WKZ:AF
  3. =ADDRESS.WKZ:AG
  4.  & if(isblank(ADDRESS.WKZ:AH5
  5. ),"",ADDRESS.WKZ:AH5
  6. =ADDRESS.WKZ:AI
  7.  & if(isblank(ADDRESS.WKZ:AJ5
  8. ),"",ADDRESS.WKZ:AJ5
  9. =ADDRESS.WKZ:AA
  10. =ADDRESS.WKZ:AB
  11.  & " 
  12. ADDRESS.WKZ
  13. kana_flag
  14. max_line
  15. left_margin
  16. right_margin
  17. top_margin
  18. bottom_margin
  19. label_space
  20. label_width
  21. addr_height
  22. kana_height
  23. name_height
  24. addr_font    
  25. kana_font
  26. name_font
  27. addr_size
  28. kana_size
  29. name_size
  30. column_number
  31. page_include
  32. make_printsheet
  33. put_label/
  34.     PRSHEET.SCZ    -    
  35.     Copyright (C) 1992 ASCII Corporation
  36.     1992/1/6 Author taku-k
  37.     define left_margin, right_margin, top_margin, bottom_margin, label_space
  38.     define  label_width
  39.     define addr_height, kana_height, name_height
  40.     define addr_font, kana_font, name_font
  41.     define addr_size, kana_size, name_size
  42.     define i, j, line
  43.     define column_number, page_include
  44. function make_printsheet()
  45.     column_number = 3                {    
  46.     page_include = 6                {    
  47.     left_margin = 15 point            {    
  48.     right_margin = 15 point            {    
  49.     top_margin = 5 point            {    
  50.     bottom_margin = 5 point            {    
  51.     label_width = 130 point            {    
  52.     label_space = 10 point            {    
  53.     addr_height = 15 point            {    "
  54.     kana_height = 10 point            {    "
  55.     name_height = 20 point            {    "
  56.     addr_font = "
  57. "        {    "
  58.     kana_font = "
  59. "        {    "
  60.     name_font = "
  61. "        {    "
  62.     addr_size = 12                    {    "
  63.     kana_size = 9                    {    "
  64.     name_size = 14                    {    "
  65.     ADDRESS.WKZ:kana_flag = 1        {    
  66.     repaint selections off
  67.     repaint off
  68.     select range a1..b32768
  69.         column width left_margin/2
  70.     for i = 1 to column_number
  71.         select range makerange(i*3,1,i*3,32768)
  72.             column width label_width
  73.         select range makerange(1+i*3,1,1+i*3,32768)
  74.             column width label_space
  75.         select range makerange(2+i*3,1,2+i*3,32768)
  76.             column width right_margin
  77.     end for
  78.     hide headings                {    
  79.     hide cell grid                {    
  80.     repaint window
  81.     repaint on
  82.     repaint selections on
  83.     unselect
  84.     i = 0
  85.     repaint selections off
  86.     repaint off
  87.     for line = 3 to ADDRESS.WKZ:max_line
  88.         call put_label(j*3+3, i*7+3, line)
  89.         j = j + 1
  90.         if j >= column_number or line =  ADDRESS.WKZ:max_line
  91.             select range makerange(1,i*7+3,32768,i*7+5)
  92.                 row height addr_height
  93.             select range makerange(1,i*7+6,32768,i*7+6)
  94.                 row height kana_height
  95.             select range makerange(1,i*7+7,32768,i*7+7)
  96.                 row height name_height
  97.             i = i + 1
  98.                 if not mod(i, page_include)
  99.                     add page break                {    
  100.                 end if
  101.             j = 0
  102.         end if
  103.     end for
  104.     unselect
  105.     repaint window
  106.     repaint on
  107.     repaint selections on
  108. end function
  109. { column
  110. function put_label(column, row, line)
  111.     put  "=""
  112. "" & ADDRESS.WKZ:AF" & line into makecell(column, row)
  113.     put  "=ADDRESS.WKZ:AG" & line & " & if(isblank(ADDRESS.WKZ:AH" & line  & "),"""",ADDRESS.WKZ:AH" & line & ")" into makecell(column, row+1)
  114.     put  "=ADDRESS.WKZ:AI" & line & " & if(isblank(ADDRESS.WKZ:AJ" & line & "),"""",ADDRESS.WKZ:AJ" & line & ")" into makecell(column, row+2)
  115.     select range makerange(column, row,column, row+2) text font addr_font text size addr_size
  116.     if ADDRESS.WKZ:kana_flag
  117.         put  "=ADDRESS.WKZ:AA" & line into makecell(column, row+3)
  118.         select range makecell(column, row+3) text font kana_font text size kana_size
  119.     end if
  120.     put  "=ADDRESS.WKZ:AB" & line & " & "" 
  121. l""" into makecell(column, row+4)
  122.     select range makecell(column, row+4) text font name_font text size name_size
  123. end function
  124.